inherited fmAddEditServpodrazdLink: TfmAddEditServpodrazdLink
  Left = 429
  Top = 185
  Width = 860
  Height = 541
  Caption = #1057#1074#1103#1079#1100' '#1091#1089#1083#1091#1075#1080' '#1080' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103
  Constraints.MinHeight = 541
  Constraints.MinWidth = 860
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 476
    Width = 844
  end
  inherited Panel1: TPanel
    Width = 844
    inherited BitBtn1: TBitBtn
      Left = 666
    end
    inherited BitBtn2: TBitBtn
      Left = 754
    end
  end
  object dbtl: TcxDBTreeList [2]
    Left = 0
    Top = 45
    Width = 569
    Height = 431
    Align = alLeft
    Bands = <
      item
      end>
    BufferedPaint = False
    DataController.DataSource = dsSD
    DataController.ParentField = 'SDPARID'
    DataController.KeyField = 'SDID'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Tahoma'
    Font.Style = []
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = False
    LookAndFeel.SkinName = 'Office2007Black'
    OptionsBehavior.ImmediateEditor = False
    OptionsBehavior.DragFocusing = True
    OptionsBehavior.ExpandOnDblClick = False
    OptionsBehavior.Sorting = False
    OptionsBehavior.MultiSort = False
    OptionsData.Editing = False
    OptionsData.Deleting = False
    OptionsView.CellAutoHeight = True
    OptionsView.CellEndEllipsis = True
    OptionsView.ColumnAutoWidth = True
    OptionsView.Headers = False
    ParentFont = False
    RootValue = -1
    Styles.Content = DMInv.cxData
    TabOrder = 2
    OnDblClick = dbtlDblClick
    object cxDBTreeList1cxDBTreeListColumn1: TcxDBTreeListColumn
      Styles.Content = DMInv.cxData
      DataBinding.FieldName = 'SDNAME'
      Width = 100
      Position.ColIndex = 0
      Position.RowIndex = 0
      Position.BandIndex = 0
    end
  end
  object cxSplitter1: TcxSplitter [3]
    Left = 569
    Top = 45
    Width = 8
    Height = 431
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = dbtl
  end
  object dbglink: TcxGrid [4]
    Left = 577
    Top = 45
    Width = 267
    Height = 431
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    LookAndFeel.Kind = lfStandard
    LookAndFeel.SkinName = 'Office2007Black'
    object tvlink: TcxGridDBTableView
      OnDblClick = tvlinkDblClick
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'SDID'
          Column = tvlinkSDNAME
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 3
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.Header = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvlinkSDNAME: TcxGridDBColumn
        DataBinding.FieldName = 'SDNAME'
      end
    end
    object dbglinkLevel1: TcxGridLevel
      GridView = tvlink
    end
  end
  inherited dlgDS: TDataSource
    Left = 600
    Top = 160
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BeforeOpen = qSDBeforeOpen
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID)'
      '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'order by 3'
      ''
      ''
      '')
    GeneratorField.Field = 'SDID'
    Left = 120
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end>
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 88
    Top = 88
  end
end
